﻿Public Class FormInfo

    Private Sub FormInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Age of visual es un juego de estrategia por turnos entre 2 jugadores. Los jugadores disponen de una serie de puntos para comprar sus tropas y después se enfrentarán en una batalla."
        TextBox2.Text = "Un programa hecho por Daniel Ancin, Jesús Iturbe y Eneko Moreno, en Mayo de 2014 para 1ºDAM. Versión 1.0"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSoldInfo.Click
        Tbinfotropas.Text = "La base de todo ejercito, soldados curtidos y disciplinados, quizás no tan eficientes por su habilidad individual sino por su número. ATAQUE 3, DEFENSA 3, DISCIPLINA 3, FUERZA 3, VELOCIDAD 1, VIDA 1"
    End Sub

    Private Sub BtnSargInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSargInfo.Click
        Tbinfotropas.Text = "Los dirigentes de las tropas de a pie, estos soldados veteranos han conseguido obtener la mayor graduacion para las tropas de infanteria, son soldados fiables y duros. ATAQUE 4, DEFENSA 3, DISCIPLINA 4, FUERZA 4, VELOCIDAD 1, VIDA 1"
    End Sub

    Private Sub BtnArqInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnArqInfo.Click
        Tbinfotropas.Text = "Hombres entrenados en el uso del arco, son basicos en todo ejército por su utilidad táctica. ALCANCE 3, ATAQUE 3, DEFENSA 3, DISCIPLINA 3, DISPARO 3, FUERZA 3, VELOCIDAD 1, VIDA 1"
    End Sub

    Private Sub BtnMosqInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMosqInfo.Click
        Tbinfotropas.Text = "La ultima tecnología armamentística en manos de tiradores expertos, su alcance y daño superior pueden acabar con el enemigo mas duro. ALCANCE 4, ATAQUE 3, DEFENSA 3, DISCIPLINA 3, DISPARO 5, FUERZA 3, VELOCIDAD , VIDA 1"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCabInfo.Click
        Tbinfotropas.Text = "Todo buen comandante gustará de incluir en su ejército de tropas a caballo, ya que otorgan movilidad y una fuerza brutal a la carga. ATAQUE 3, DEFENSA 4, DISCIPLINA 4, FUERZA 5, VELOCIDAD 2, VIDA 1"
    End Sub

    Private Sub BtnPalInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPalInfo.Click
        Tbinfotropas.Text = "La élite de las élites, estos poderosos guerreros llevan el mejor equipamiento y han recibido el mejor entrenamiento. ATAQUE 4, DEFENSA 4, DISCIPLINA 4, FUERZA 5, VELOCIDAD 2, VIDA 2"
    End Sub

    Private Sub BtnCamInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCamInfo.Click
        Tbinfotropas.Text = "Todo ejército tiene héroes, valientes campeones que son ejemplo a seguir para los hombres de armas. Su valía en el campo de batalla esta más allá de toda duda. ATAQUE 5, DEFENSA 4, DISCIPLINA 4, FUERZA 4, VELOCIDAD 1, VIDA 2"
    End Sub

    Private Sub BtnComInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnComInfo.Click
        Tbinfotropas.Text = "El comandante es el líder de las tropas, el general del ejército y el hombre más valioso. Todo ejército tiene uno y sólamente uno. Únicamente con gran experiencia en el campo de batalla puede alguien convertirse en Comandante. ATAQUE 5, DEFENSA 5, DISCIPLINA 6, FUERZA 4, VELOCIDAD 1, VIDA 3"
    End Sub

    Private Sub BtnMagoInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMagoInfo.Click
        Tbinfotropas.Text = "Los magos, hombres capaces de manipular las energías magicas del mundo, son temidos y valorados por igual en todos los ejércitos. Pueden conocer los hechizos Bola de Fuego y/o Debilidad. ATAQUE 3, DEFENSA 3, DISCIPLINA 4, FUERZA 3, MAGIA 3, VELOCIDAD 1, VIDA 1"
    End Sub

    Private Sub BtnArchInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnArchInfo.Click
        Tbinfotropas.Text = "Nadie maneja más poder que un archimago. Su capacidad de poder destructivo es tal que ningun comandante que se precie dejaría pasar la oportunidad de incluir uno en su ejército. Ademas de los hechizos conocidos por los magos, pueden conocer Teleportar y Lluvia de Meteoritos. ATAQUE 3, DEFENSA 3, DISCIPLINA 4, FUERZA 3, MAGIA 5, VELOCIDAD 1, VIDA 2"
    End Sub

    Private Sub BtnDraInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDraInfo.Click
        Tbinfotropas.Text = "Los dragones son bestias mitólogicas capaces por si solos de destruir cientos de enemigos. Son muy dificiles de encontrar y domesticar, pero algunos comandantes lo han logrado y son ellos los llamados a la victoria. Los Dragones cuentan con un letal ataque de aliento de fuego. ATAQUE 3, DEFENSA 3, DISCIPLINA 4, FUERZA 6, VELOCIDAD 5, VIDA 5"
    End Sub

    
End Class